home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sysinfo / TECH5.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-01-26  |  19.1 KB  |  414 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{6E3BBBCF-5A0D-11D1-B659-0060976C699F}#1.1#0"; "MSysInfo.ocx"
  4. Begin VB.Form Form1 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "MSysInfo Sample Tech Support Form"
  7.    ClientHeight    =   4875
  8.    ClientLeft      =   1260
  9.    ClientTop       =   1620
  10.    ClientWidth     =   9360
  11.    Icon            =   "tech5.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    PaletteMode     =   1  'UseZOrder
  17.    ScaleHeight     =   4875
  18.    ScaleWidth      =   9360
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  'CenterScreen
  21.    Begin VB.CommandButton cmdPrint 
  22.       Caption         =   "&Print"
  23.       Height          =   375
  24.       Left            =   7800
  25.       TabIndex        =   4
  26.       Top             =   4080
  27.       Width           =   1455
  28.    End
  29.    Begin VB.CommandButton cmdClose 
  30.       Caption         =   "&Close"
  31.       Height          =   375
  32.       Left            =   7800
  33.       TabIndex        =   0
  34.       Top             =   3600
  35.       Width           =   1455
  36.    End
  37.    Begin TabDlg.SSTab SSTab1 
  38.       Height          =   3375
  39.       Left            =   120
  40.       TabIndex        =   1
  41.       Top             =   120
  42.       Width           =   9135
  43.       _ExtentX        =   16113
  44.       _ExtentY        =   5953
  45.       _Version        =   393216
  46.       Style           =   1
  47.       Tabs            =   4
  48.       TabsPerRow      =   4
  49.       TabHeight       =   520
  50.       TabCaption(0)   =   "&Environment"
  51.       TabPicture(0)   =   "tech5.frx":030A
  52.       Tab(0).ControlEnabled=   -1  'True
  53.       Tab(0).Control(0)=   "Text1(0)"
  54.       Tab(0).Control(0).Enabled=   0   'False
  55.       Tab(0).ControlCount=   1
  56.       TabCaption(1)   =   "&Memory"
  57.       TabPicture(1)   =   "tech5.frx":0326
  58.       Tab(1).ControlEnabled=   0   'False
  59.       Tab(1).Control(0)=   "Text1(1)"
  60.       Tab(1).ControlCount=   1
  61.       TabCaption(2)   =   "&Drives"
  62.       TabPicture(2)   =   "tech5.frx":0342
  63.       Tab(2).ControlEnabled=   0   'False
  64.       Tab(2).Control(0)=   "Drive1"
  65.       Tab(2).Control(1)=   "Text1(2)"
  66.       Tab(2).ControlCount=   2
  67.       TabCaption(3)   =   "&Files"
  68.       TabPicture(3)   =   "tech5.frx":035E
  69.       Tab(3).ControlEnabled=   0   'False
  70.       Tab(3).Control(0)=   "Text1(3)"
  71.       Tab(3).ControlCount=   1
  72.       Begin VB.TextBox Text1 
  73.          BeginProperty Font 
  74.             Name            =   "Courier"
  75.             Size            =   9.75
  76.             Charset         =   0
  77.             Weight          =   400
  78.             Underline       =   0   'False
  79.             Italic          =   0   'False
  80.             Strikethrough   =   0   'False
  81.          EndProperty
  82.          Height          =   2775
  83.          Index           =   3
  84.          Left            =   -74880
  85.          Locked          =   -1  'True
  86.          MultiLine       =   -1  'True
  87.          ScrollBars      =   3  'Both
  88.          TabIndex        =   8
  89.          Top             =   480
  90.          Width           =   8895
  91.       End
  92.       Begin VB.TextBox Text1 
  93.          BeginProperty Font 
  94.             Name            =   "Courier"
  95.             Size            =   9.75
  96.             Charset         =   0
  97.             Weight          =   400
  98.             Underline       =   0   'False
  99.             Italic          =   0   'False
  100.             Strikethrough   =   0   'False
  101.          EndProperty
  102.          Height          =   2775
  103.          Index           =   0
  104.          Left            =   120
  105.          Locked          =   -1  'True
  106.          MultiLine       =   -1  'True
  107.          ScrollBars      =   3  'Both
  108.          TabIndex        =   7
  109.          Top             =   480
  110.          Width           =   8895
  111.       End
  112.       Begin VB.TextBox Text1 
  113.          BeginProperty Font 
  114.             Name            =   "Courier"
  115.             Size            =   9.75
  116.             Charset         =   0
  117.             Weight          =   400
  118.             Underline       =   0   'False
  119.             Italic          =   0   'False
  120.             Strikethrough   =   0   'False
  121.          EndProperty
  122.          Height          =   2775
  123.          Index           =   1
  124.          Left            =   -74880
  125.          Locked          =   -1  'True
  126.          MultiLine       =   -1  'True
  127.          ScrollBars      =   3  'Both
  128.          TabIndex        =   6
  129.          Top             =   480
  130.          Width           =   8895
  131.       End
  132.       Begin VB.TextBox Text1 
  133.          BeginProperty Font 
  134.             Name            =   "Courier"
  135.             Size            =   9.75
  136.             Charset         =   0
  137.             Weight          =   400
  138.             Underline       =   0   'False
  139.             Italic          =   0   'False
  140.             Strikethrough   =   0   'False
  141.          EndProperty
  142.          Height          =   2775
  143.          Index           =   2
  144.          Left            =   -74880
  145.          Locked          =   -1  'True
  146.          MultiLine       =   -1  'True
  147.          ScrollBars      =   3  'Both
  148.          TabIndex        =   3
  149.          Top             =   480
  150.          Width           =   8895
  151.       End
  152.       Begin VB.DriveListBox Drive1 
  153.          Height          =   315
  154.          Left            =   -68880
  155.          TabIndex        =   2
  156.          Top             =   360
  157.          Visible         =   0   'False
  158.          Width           =   1575
  159.       End
  160.    End
  161.    Begin SystemInfoControl.MSysInfo MSysInfo1 
  162.       Left            =   7800
  163.       Top             =   4320
  164.       _ExtentX        =   847
  165.       _ExtentY        =   847
  166.    End
  167.    Begin VB.Label Label9 
  168.       Caption         =   "Label9"
  169.       BeginProperty Font 
  170.          Name            =   "MS Sans Serif"
  171.          Size            =   9.75
  172.          Charset         =   0
  173.          Weight          =   400
  174.          Underline       =   0   'False
  175.          Italic          =   0   'False
  176.          Strikethrough   =   0   'False
  177.       EndProperty
  178.       Height          =   975
  179.       Left            =   240
  180.       TabIndex        =   5
  181.       Top             =   3720
  182.       Width           =   7335
  183.    End
  184. Attribute VB_Name = "Form1"
  185. Attribute VB_GlobalNameSpace = False
  186. Attribute VB_Creatable = False
  187. Attribute VB_PredeclaredId = True
  188. Attribute VB_Exposed = False
  189. Private Type m_DriveInfo
  190.     Name As String
  191.     Total As String
  192.     Available As String
  193.     Type As String
  194. End Type
  195. Private Sub cmdClose_Click()
  196.     Unload Me
  197. End Sub
  198. Private Sub cmdPrint_Click()
  199.     MousePointer = 11
  200.     Printer.ScaleMode = vbTwips
  201.     Printer.CurrentY = 1440
  202.     Printer.Print "ENVIRONMENT:"
  203.     Printer.Print Text1(0).Text & vbCrLf
  204.     Printer.Print "MEMORY:"
  205.     Printer.Print Text1(1).Text & vbCrLf
  206.     Printer.Print "DRIVES:"
  207.     Printer.Print Text1(2).Text & vbCrLf
  208.     Printer.Print "FILES:"
  209.     Printer.Print Text1(3).Text
  210.     Printer.EndDoc
  211.     MousePointer = 0
  212. End Sub
  213. Private Sub Form_Load()
  214.     Dim lpTemp As String
  215.     Dim l As Long 'temp variable for our loops
  216.     Dim strHeader As String 'temp string to create a header for our results
  217.     Dim aStr() As m_DriveInfo 'our custom array
  218.     Dim mystr As String 'temp string
  219.     Dim iTotalLen As Integer    'holds the longest value so we can format the results properly
  220.     Dim iAvailableLen As Integer 'holds the longest value so we can format the results properly
  221.     mystr = "This sample project demonstrates how one might use the Mabry SysInfo control " & _
  222.     "to create a custom Form for providing information about the system on which an " & _
  223.     "application is running. A printout of such information could be used by technical support " & _
  224.     "staff in troubleshooting customer problems."
  225.     Label9.Caption = mystr
  226.     lpTemp = Me.Caption
  227.     Me.Show
  228.     cmdPrint.Enabled = False
  229.     DoEvents
  230.     MousePointer = 11
  231.     'ENVIRONMENT
  232.     Me.Caption = "Getting environment info..."
  233.     Text1(0).Text = Format$("Computer Name: ", "@@@@@@@@@@@@@@@@@@@@@@") & Trim$(MSysInfo1.ComputerName) & vbCrLf
  234.     Text1(0).Text = Text1(0).Text & Format$("User Name: ", "@@@@@@@@@@@@@@@@@@@@@@") & Trim$(MSysInfo1.UserName) & vbCrLf & vbCrLf
  235.     Text1(0).Text = Text1(0).Text & Format$("Windows Path: ", "@@@@@@@@@@@@@@@@@@@@@@") & MSysInfo1.WindowsPath & vbCrLf
  236.     Text1(0).Text = Text1(0).Text & Format$("System Path: ", "@@@@@@@@@@@@@@@@@@@@@@") & MSysInfo1.SystemPath & vbCrLf
  237.     Text1(0).Text = Text1(0).Text & Format$("Temp Path: ", "@@@@@@@@@@@@@@@@@@@@@@") & MSysInfo1.TempPath & vbCrLf & vbCrLf
  238.     Text1(0).Text = Text1(0).Text & Format$("Number of Processors: ", "@@@@@@@@@@@@@@@@@@@@@@") & CStr(MSysInfo1.ProcessorCount) & vbCrLf
  239.     l = MSysInfo1.ProcessorType
  240.     Select Case l
  241.         Case sysPROCESSOR_INTEL_386
  242.             mystr = "Intel 386"
  243.         Case sysPROCESSOR_INTEL_486
  244.             mystr = "Intel 486"
  245.         Case sysPROCESSOR_INTEL_PENTIUM
  246.             mystr = "Intel Pentium"
  247.     End Select
  248.     Text1(0).Text = Text1(0).Text & Format$("Type of Processor: ", "@@@@@@@@@@@@@@@@@@@@@@") & mystr & vbCrLf & vbCrLf
  249.     l = MSysInfo1.OSPlatform
  250.     Select Case l
  251.         Case sysPLATFORM_95
  252.             If MSysInfo1.OSVersionMinor > 9 Then
  253.                 mystr = "Windows 98 "
  254.             Else
  255.                 mystr = "Windows 95 "
  256.             End If
  257.         Case sysPLATFORM_NT
  258.             mystr = "Windows NT "
  259.     End Select
  260.     mystr = mystr & MSysInfo1.OSVersionMajor & "." & MSysInfo1.OSVersionMinor & " Build " & MSysInfo1.OSBuild & " " & MSysInfo1.OSBuildOptions
  261.     Text1(0).Text = Text1(0).Text & Format$("Operating System: ", "@@@@@@@@@@@@@@@@@@@@@@") & mystr
  262.     'MEMORY
  263.     'get the memory resources and format it so it will
  264.     'be easy to print
  265.     Me.Caption = "Getting memory info..."
  266.     Text1(1).Text = vbCrLf & Format$("Total Physical:", "@@@@@@@@@@@@@@@@@@@@@")
  267.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.TotalPhysical, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf
  268.     Text1(1).Text = Text1(1).Text & " " & Format$("Available Physical:", "@@@@@@@@@@@@@@@@@@@@")
  269.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.AvailablePhysical, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf & vbCrLf
  270.     Text1(1).Text = Text1(1).Text & " " & Format$("Total Virtual:", "@@@@@@@@@@@@@@@@@@@@")
  271.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.TotalVirtual, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf
  272.     Text1(1).Text = Text1(1).Text & " " & Format$("Available Virtual:", "@@@@@@@@@@@@@@@@@@@@")
  273.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.AvailableVirtual, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf & vbCrLf
  274.     Text1(1).Text = Text1(1).Text & " " & Format$("Total Page File:", "@@@@@@@@@@@@@@@@@@@@")
  275.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.TotalPage, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf
  276.     Text1(1).Text = Text1(1).Text & " " & Format$("Available Page File:", "@@@@@@@@@@@@@@@@@@@@")
  277.     Text1(1).Text = Text1(1).Text & " " & Format$(Format$(MSysInfo1.AvailablePage, "#,###,###,##0"), "@@@@@@@@@@@@@") & " Bytes" & vbCrLf & vbCrLf
  278.         
  279.     'DRIVES
  280.     'this code loops through all of the
  281.     'drives to get the desired drive info,
  282.     'such as total space, free space, and drive type
  283.     'and then loads an array with the info
  284.     '
  285.     'after this code, we will loop through the array
  286.     'and format the data before displaying it
  287.     Me.Caption = "Getting drive info..."
  288.     ReDim aStr(Drive1.ListCount - 1) As m_DriveInfo 're-dimension the array to the correct size
  289.     'load the array with the info for each drive
  290.     For l = 0 To Drive1.ListCount - 1
  291.         MSysInfo1.Drive = Drive1.List(l)
  292.         aStr(l).Name = Left$(MSysInfo1.Drive, 2)
  293.         aStr(l).Total = Format$(Format$(MSysInfo1.TotalDiskSpace, "###,###,###,##0"), "@@@@@@@@@@@@@@@") & " Bytes"
  294.         aStr(l).Available = Format$(Format$(MSysInfo1.AvailableDiskSpace, "###,###,###,##0"), "@@@@@@@@@@@@@@@") & " Bytes"
  295.         Select Case MSysInfo1.DriveType
  296.             Case sysFIXED
  297.                 aStr(l).Type = "Fixed"
  298.             Case sysNETWORK
  299.                 aStr(l).Type = "Network"
  300.             Case sysCDROM
  301.                 aStr(l).Type = "CD-ROM"
  302.             Case sysREMOVABLE
  303.                 aStr(l).Type = "Removable"
  304.             Case sysRAMDISK
  305.                 aStr(l).Type = "RAM Disk"
  306.             Case Else
  307.                 aStr(l).Type = "Unavailable"
  308.         End Select
  309.         
  310.         If Len(aStr(l).Total) > iTotalLen Then
  311.             iTotalLen = Len(aStr(l).Total)
  312.         End If
  313.         
  314.         If Len(aStr(l).Available) > iAvailableLen Then
  315.             iAvailableLen = Len(aStr(l).Available)
  316.         End If
  317.     Next l
  318.     '
  319.     'this code just formats the results so
  320.     'it will be easy to print later
  321.     Text1(2).Text = ""
  322.     strHeader = "Drive" & vbTab
  323.     mystr = Space$(iTotalLen)
  324.     Mid$(mystr, 1, 15) = Format$("Total Space", "@@@@@@@@@@@@@@@")
  325.     strHeader = strHeader & mystr & vbTab
  326.     mystr = Space$(iAvailableLen)
  327.     Mid$(mystr, 1, 15) = Format$("Free Space", "@@@@@@@@@@@@@@@")
  328.     strHeader = strHeader & mystr & vbTab
  329.     strHeader = strHeader & "Type" & vbCrLf
  330.         
  331.     l = 0
  332.     For l = 0 To UBound(aStr)
  333.         mystr = aStr(l).Name
  334.         Text1(2).Text = Text1(2).Text & mystr & vbTab
  335.         mystr = Space$(iTotalLen)
  336.         Mid$(mystr, 1, Len(aStr(l).Total)) = aStr(l).Total
  337.         Text1(2).Text = Text1(2).Text & mystr & vbTab
  338.         mystr = Space$(iAvailableLen)
  339.         Mid$(mystr, 1, Len(aStr(l).Available)) = aStr(l).Available
  340.         Text1(2).Text = Text1(2).Text & mystr & vbTab
  341.         Text1(2).Text = Text1(2).Text & aStr(l).Type & vbCrLf
  342.         If l = 0 Then
  343.             Text1(2).Text = strHeader & String$(Len(Text1(2).Text) + 11, "=") & vbCrLf & Text1(2).Text
  344.         End If
  345.     Next l
  346.     'FILES
  347.     'this code gets the version info of a few pertinent files
  348.     'we'll get winsock and wsock32, the MFC files
  349.     'and the RAS Phonebook if NT
  350.     strHeader = Format$("Description:", "@@@@@@@@@@@@@@@@")
  351.     strHeader = strHeader & " Version        Date       Time "
  352.     strHeader = strHeader & Format$("Size", "@@@@@@@@@@@") & "  Location"
  353.     Me.Caption = "Getting File info..."
  354.     Text1(3).Text = strHeader & vbCrLf
  355.     mystr = String$(Len(strHeader) + Len(MSysInfo1.SystemPath) + 6, "=")
  356.     Text1(3).Text = Text1(3).Text & mystr & vbCrLf
  357.     If Dir$(MSysInfo1.WindowsPath & "\winsock.dll") <> "" Then
  358.         MSysInfo1.filename = MSysInfo1.WindowsPath & "\winsock.dll"
  359.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  360.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  361.         Text1(3).Text = Text1(3).Text & Format$("Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  362.     ElseIf Dir$(MSysInfo1.SystemPath & "\winsock.dll") <> "" Then
  363.         MSysInfo1.filename = MSysInfo1.SystemPath & "\winsock.dll"
  364.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  365.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  366.         Text1(3).Text = Text1(3).Text & Format$("Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  367.     End If
  368.     If Dir$(MSysInfo1.WindowsPath & "\wsock32.dll") <> "" Then
  369.         MSysInfo1.filename = MSysInfo1.WindowsPath & "\wsock32.dll"
  370.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  371.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  372.         Text1(3).Text = Text1(3).Text & Format$("32-bit Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  373.     ElseIf Dir$(MSysInfo1.SystemPath & "\winsock.dll") <> "" Then
  374.         MSysInfo1.filename = MSysInfo1.SystemPath & "\wsock32.dll"
  375.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  376.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  377.         Text1(3).Text = Text1(3).Text & Format$("32-bit Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  378.     End If
  379.     If Dir$(MSysInfo1.SystemPath & "\mfc40.dll") <> "" Then
  380.         MSysInfo1.filename = MSysInfo1.SystemPath & "\mfc40.dll"
  381.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  382.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  383.         Text1(3).Text = Text1(3).Text & Format$("MFC Library: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  384.     End If
  385.     If Dir$(MSysInfo1.SystemPath & "\msvcrt40.dll") <> "" Then
  386.         MSysInfo1.filename = MSysInfo1.SystemPath & "\msvcrt40.dll"
  387.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  388.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  389.         Text1(3).Text = Text1(3).Text & Format$("MFC Runtime: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  390.     End If
  391.     If Dir$(MSysInfo1.SystemPath & "\olepro32.dll") <> "" Then
  392.         MSysInfo1.filename = MSysInfo1.SystemPath & "\olepro32.dll"
  393.         mystr = Format$(MSysInfo1.FileVersion, "!@@@@@@@@@@@@@@@")
  394.         mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  395.         Text1(3).Text = Text1(3).Text & Format$("OLE Property: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  396.     End If
  397.     If MSysInfo1.OSPlatform = sysPLATFORM_NT Then
  398.         If Dir$(MSysInfo1.SystemPath & "\rasphone.pbk") <> "" Then
  399.             MSysInfo1.filename = MSysInfo1.SystemPath & "\rasphone.pbk"
  400.             mystr = Space$(15)
  401.             mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  402.             Text1(3).Text = Text1(3).Text & Format$("Winsock: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  403.         ElseIf Dir$(MSysInfo1.SystemPath & "\ras\rasphone.pbk") <> "" Then
  404.             MSysInfo1.filename = MSysInfo1.SystemPath & "\ras\rasphone.pbk"
  405.             mystr = Space$(15)
  406.             mystr = mystr & Format$(MSysInfo1.FileDate, "mm-dd-yyyy") & " " & Format$(MSysInfo1.FileTime, "Short Time") & " " & Format$(MSysInfo1.FileSize \ 1024, "@@@@@@@") & " KB  " & MSysInfo1.filename
  407.             Text1(3).Text = Text1(3).Text & Format$("RAS Phonebook: ", "@@@@@@@@@@@@@@@@@") & mystr & vbCrLf
  408.         End If
  409.     End If
  410.     MousePointer = 0
  411.     Me.Caption = lpTemp
  412.     cmdPrint.Enabled = True
  413. End Sub
  414.